﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%

	dim urls,str,rs,sql
        urls=Request.QueryString("urls")
        if urls="" then urls="index.asp"
		if sid<>"Null" then
                namer=session("username")
                Set Rs = Server.CreateObject("Adodb.Recordset")
		Sql = "select top 1 [zf],[money],[tili],[time] from [qingtian_user] where sid='"&qingtian.Formatsid(sid)&"'"
		Rs.Open Sql,conn,1,3
		if not (rs.bof and rs.eof)  then                
                if CLng(DATEDIFF("d",rs("time"),now())) > 0 then
                rs("zf")=rs("zf")+10
                rs("money")=rs("money")+10
                rs("tili")=rs("tili")+10
                rs("time")=now()
                rs.update
                str="领取会员工资成功,你的体力+10,积分+10,"&qingtian.bi&"+10.领取时间是:<br/>"&now()&"<br/>你现在的"&qingtian.bi&":"&rs("money")&""
                qingtian.addong("成功领取会员工资")
                else
                str="领取会员工资失败,你在"&DATEDIFF("h",rs("time"),now())&"小时前已经成功领取过一次<br/>你现在的"&qingtian.bi&":"&rs("money")&""
                end if
                end if
                Rs.close
                set rs=nothing
select case v
case "0"
we0="<br/>"
hr="-------------------<br/>"
%>
<card title="会员工资"><p align="<%=qingtian.px%>">
<%
case "1"
hr=""
zi="<span style=""color:#FF5500"">"
zi0="</span>"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title>会员工资</title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
        qingtian.info
%>		
<%=qingtian.qingsav("420")%>
<%=we%><%=str%><%=we0%>
<%=hr%>
<%=qingtian.qingsav("421")%><%=sou%><a href="<%=qingtian.backurl(urls)%>">返回来源页</a><%=we0%>                                      
<%

else
Response.Redirect "/login.asp?sid=" & sidd & "&url=/user/index.asp?sid="&sidd&"@@urls="&urls

end if

end Function
%>
